COMMENT ⊗   VALID 00003 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	TITLE TABLE  -  TABLE TEST
 00003 00003	SA:	SPCWAR 0,[CONO 410,0↔DISMIS]
 00005 ENDMK
⊗;
TITLE TABLE  -  TABLE TEST

COMMENT⊗
Run Turn table:
	DATAO 500,[speed(5)]
	Speed 0 TO 77 turn counter clockwise.
	Speed 100 to 176 turn clockwise.
	speed 177 stop and lock.
	Speed 200 table time out.
Read Turn Table:
	DATAI 410,X	;Read Turn Table. 1b18 count invalid bit.
	CONO  410,0	;Reset table count to zero.
			;10 arcs of 2000 counts.
⊗
SA:	SPCWAR 0,[CONO 410,0↔DISMIS]
LOOP:	MOVE 1,[POINT 3,XXXX,17]
	SPCWAR'SSW'
	ILDB 1↔IORI 60↔OUTCHR
	ILDB 1↔IORI 60↔OUTCHR
	ILDB 1↔IORI 60↔OUTCHR
	ILDB 1↔IORI 60↔OUTCHR
	ILDB 1↔IORI 60↔OUTCHR
	ILDB 1↔IORI 60↔OUTCHR↔OUTCHR[9]

	OUTCHR["*"]↔INCHRW↔OUTCHR[15]↔OUTCHR[12]
	SETZM CTRL↔TRZE 200↔SETOM CTRL#
	SETZM META↔TRZE 400↔SETOM META#

	MOVEI =12↔MOVEM TICKS#		;1 SECOND.
	MOVE META↔MOVEM FLG#
	MOVEI 1↔SKIPE CTRL↔AOS↔MOVEM SPEED#
	SPCWAR 5,SW.JOB
	SKIPL TICKS↔JRST .-1
	JRST LOOP

SW.JOB:	SOSG TICKS↔SETZM SPEED
	DATAI 410,XXXX
	MOVE 1,SPEED↔ANDI 1,3
	SKIPE FLG↔JRST GO.CW
GO.CCW:	CONSO 40↔DATAO 500,[177(5)↔020(5)↔040(5)↔060(5)](1)↔DISMIS
GO.CW:	CONSO 40↔DATAO 500,[177(5)↔140(5)↔120(5)↔120(5)](1)↔DISMIS
STOP:	CONSO 40↔DATAO 500,[177(5)]↔DISMIS
xxxx:	0
END SA